home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / colr174.zip / RSB2COLR.MRG < prev    next >
Text File  |  1992-06-26  |  5KB  |  131 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB2.BAS to produce RBBSSUB2.NEW
  3. * RBBSSUB2.BAS:  Date 3-5-1992  Size 157770 bytes
  4. * ------------[ Created 05-17-1992 01:22:23 ]------------
  5. * REPLACING old line(s) by new
  6. 109 '  $SUBTITLE: 'VarInit - subroutine to initialize system variables'
  7. '  $PAGE
  8. '
  9. '  NAME    --  VarInit
  10. '
  11. '  INPUTS  --  PARAMETER           MEANING
  12. '              NONE
  13. '
  14. '  OUTPUTS --  NONE
  15. '
  16. '  PURPOSE --  To initialize system variable
  17. '
  18.       SUB VarInit STATIC
  19.     DEF SEG                            ' Point to BASIC
  20.     WIDTH 80                           ' Set Screen Width
  21.     KEY OFF                            ' Line 25 turned off
  22. ' ********************* Variable Definitions *******************************
  23.     ZMsgDim = 99
  24.     WasMM = 999
  25.     WasBX = 75
  26.     WasJ = 60
  27.     REDIM ZOptSec(WasJ)
  28.     DIM ZWorkAra$(WasJ)
  29.     DIM ZGSRAra$(WasJ)
  30.     DIM ZCategoryName$(WasBX),ZCategoryCode$(WasBX),ZCategoryDesc$(WasBX)
  31.     DIM ZOutTxt$(ZMsgDim)                      ' Message line table
  32.     DIM ZUserIn$(ZMsgDim)                      ' Message line table
  33.     DIM ZMsgPtr(WasMM,2)                       ' Message pointers
  34.     ZAcknowledge$ = CHR$(6)
  35.     ZAckChar$ = "C" + _
  36.             ZAcknowledge$
  37.     ZActiveMenu$ = "B"
  38.     ZActiveMessage$ = CHR$(225)
  39.     ZBackSpace$ = CHR$(8) + _
  40.                  CHR$(32) + _
  41.                  CHR$(8)
  42.     ZBackArrow$ = CHR$(29) + _
  43.                   CHR$(32) + _
  44.                   CHR$(29)
  45.     ZBaudRates$ = "      300  450 1200 2400 4800 7200 96001200014400168001920038400"
  46.     ZBellRinger$ = CHR$(7)
  47.     ZBulletinMenu$ = ""
  48.     ZWasCL = 24
  49.     ZCancel$ = CHR$(24)
  50.     ZColorReset$ = CHR$(27) + _
  51.                    "[00;37;40m"
  52.     ZConfigFileName$ = "RBBS-PC.DEF"
  53.     ZCarriageReturn$ = CHR$(13)
  54.     ZDeletedMsg$ = CHR$(226)
  55.     ZEndTransmission$ = CHR$(4)
  56.     ZEscape$ = CHR$(27)
  57.     ZExpectActiveModem = 0
  58.     ZFalse = 0
  59.     ZF1Key = 59
  60.     ZF10Key = 68
  61.     ZConfName$ = "MAIN"
  62.     CALL SetHiLite (ZTrue)
  63.     ZHomeConf$ = ""
  64.     ZInConfMenu = -1
  65.     ZLastCommand$ = "M "
  66.     ZLimitMinsPerSession = 0
  67.     ZLineFeed$ = CHR$(10)
  68.     ZLineFeeds = NOT ZFalse
  69.     ZLineEditChk$ = CHR$(9) + _
  70.                     ZLineFeed$ + _
  71.                     CHR$(11) + _
  72.                     CHR$(12) + _
  73.                     CHR$(127) + _
  74.                     CHR$(8) + _
  75.                     ZBellRinger$ + _
  76.                     CHR$(26) + _
  77.                     CHR$(227)
  78.     ZLineMes$ = SPACE$(78)          ' fixed length string workspace
  79.     ZLockStatus$ = "UM UU UB UD"
  80.     ZMenuIndex = 2
  81.     ZNAK$ = CHR$(21)
  82.     ZNoAdvance = ZFalse
  83.     ZPageLength = 23
  84.     ZParseOff = ZFalse
  85.     ZPressEnter$ = " (Press [ENTER] to quit)"
  86.     ZPressEnterExpert$ = " ([ENTER] quits)"
  87.     ZPressEnterNovice$ = ZPressEnter$
  88.     ZPrivateDoor = ZFalse
  89.     ZRightMargin = 72
  90.     ZReturnLineFeed$ = ZCarriageReturn$ + _
  91.                         ZLineFeed$
  92.     ZSmartTable$ = "CS PB NS FN LN SL DT TM TR TE TL RP RR CT " + _
  93. * ------[ first line different ]------
  94.                    "C1 C2 C3 C4 C5 C6 C7 C8 C0 DD BD DB UB DL " + _  ' COLR174
  95.                    "UL FI VY VN " + _                                ' COLR174
  96.                    "TY TN BN ND FS LS CN"
  97.     ZStartOfHeader$ = CHR$(1)
  98.     ZTimeLoggedOn$ = SPACE$(8)
  99.     ZTrue = NOT ZFalse
  100.     ZUpInc = -1
  101.     ZXOff$ = CHR$(19)
  102.     ZXOn$ = CHR$(17)
  103.     ZInterrupOn$ = CHR$(11) + ZCancel$ + ZXOff$ + ZXOn$ + ZCarriageReturn$
  104.     ZOptionEnd$ = ZReturnLineFeed$ + " ,("
  105.     ZCrLf$ = ZCarriageReturn$ + ZLineFeed$
  106.     ZVersionID$ = "17.4/0422"
  107.     ZWasLG$(1) = "Registration Check Failed"
  108.     ZWasLG$(2) = "Sysop name attempted"
  109.     ZWasLG$(3) = "Locked out attempt"
  110.     ZWasLG$(4) = "Password Attempt Failed"
  111.     ZWasLG$(5) = "Auto Lockout done"
  112.     ZWasLG$(6) = "Name in use on another Node!"
  113.     ZWasLG$(7) = ""
  114.     ZWasLG$(8) = "Locked reason read!"
  115.     ZWasLG$(9) = "Expired Registration"
  116.     CALL GetCommand (ZDebug,ZNetTime$,ZNetBaud$,ZNetReliable$)
  117.     ZSubParm = 1
  118.     CALL ReadDef (ZConfigFileName$)
  119.     REDIM ZWorkAra$(ZMaxWorkVar)
  120.     REDIM ZGSRAra$(ZMaxWorkVar)
  121.     ZUseTPut = (ZUpperCase OR ZXOnXOff)
  122.     ZOrigCallers$ = ZCallersFile$
  123.     ZOrigMsgFile$ = ZMainMsgFile$
  124.     ZOrigUserFile$ = ZMainUserFile$
  125.     ZOrigSysopFN$ = ZSysopFirstName$
  126.     ZOrigSysopLN$ = ZSysopLastName$
  127.     ZPromptBell = ZPromptBellDef
  128.     ZSecretName$ = ZSysopPswd1$ + " " + ZSysopPswd2$
  129.     END SUB
  130. '
  131.